perm filename SND.FAI[CMS,LCS] blob sn#252764 filedate 1976-12-11 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00007 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		,¬∪≥M%(∪¬'≠¬_9
β∩~)ε```@h@``β↓AL$Lb>
↓!A@4T→AAAβ)↓AAβ↓P%α∀z5αJ-~⊗PQ(3ββεεrββεεβ(H4q*H1∞B*:⊗6B(H1∀B(→Qλ⊃λ_∀B"&!"Plεε∞(εε
A∀⊃q5∧
P3β!(lε⊗(εε
b(	H1λ∪jZβ"PfεLDλ3Q∪)1"PeG1"@↓A+R3J84Uα(~s0S¬hP2#!'h∀P)Q"B4jj⊂r∞A⊗mmb'6β"B*:T⊂sπ!,mma↔l#"A~uT∀g!,mma↔lC"A~uP.A⊗-mB'6c"C!!4uVπ!,-mA↔mβ"A~uV.A⊗mmb'6#"B*:Tt∞A⊗mmb'6C"B*:SS2'!,mma↔mc"AQB4uJ
P.B&6mb.f⊗β"B*:PtP'!,mma↔l,#!!4uT
(NB,fvb.l&!"B4jhtPNA⊗mmb'6,c"AQB1⊂(JNB,fvb.l&A"B"&6mb.f⊗#"B*h3∞B&6mb.f⊗C"B)hS⊃nA⊗mmb'6-c"A_1∀NA⊗mmb'6Lβ"A⊃,mma↔lL#!!",mfq.lLD∧↔h⊃Hd∪04I1"B2ij∞B,↓QC"Nd	q∃λ
(3(	D	3U⊃**4∃λ
h0u∪j*c"B)Iph&εβ"AQB24J_.B2IZα23JJU".f⊗λ¬T,ε!"B2**0NB*(4⊃0*DK≡f⊗,%␈A↔l,ε4(&ε
β"A⊃"B3IY0.B*(4⊃0*Dk≡f6le␈A↔l,εT(&ε
c"A⊃,mma⊃.l,ε⊗λ↔hλhH∪0*)c"C!'h∩+it∀u0J1"Nb!→⊃1∪dh-fvl
β!'b"2)8Uh↔dε-mmfVβ"@↓A3∪pdε-↓QC"TjH4NB)H⊂2"&&,C"A~u⊂6A_⊂1∀AQB4uλ≠B1⊂(JJl#!!4u⊂+!5P3↓QS∪sjπB4∩
↓"B4Iy⊗B1λ_∀C"A~Ss⊗A_⊂1∀E6#"B*	∀β"A~Ss⊗A~P3β!!2TtA~⊃∀⊗!QB2S*↓3∪sj↓"C"JH∀⊗.A→⊃⊗2!~∩31&↔B,β!*∩31'!3⊃⊗	⊃5∩3(VNB,ffβ"U	yt∞B)→Vβ"A_SQ"*Istβ!!23V!QB0SHQ5∩3(Q"B2J:B3⊃
#"B**∀c"AQR3U
*.B4	λ#"B*K⊂#"A~∩⊂#!!3⊃⊂!~∀P#!!03Q	⊃,-c!!0s4	⊃,,#!!0Q4!_⊃∃β!!5⊂6↓QB3⊃λ≠α1Uλ)β"B*:⊂"5	→1,#!!4∪⊂!QB5⊂+↓"B4	H#"B**∩#"HH∃∞B*	⊂#"A~⊂6β!!4∪⊂!QB2S*↓3q∃↓QB2S*↓23U
*#"QJHS∞B&↓"B,Fεβ"B&6β"A⊗mβ!!,lβ_βE∧Y[LεE∧YMZεE∧L[[εEαY[[FBβ≥P)'SP)"iQj
; OCT DDT	CK FOR BBIT?
; CK OTHER PROM AND BRK ?
; SETUP IRQV WITH ? OR BRK FOR OTHER ROM

	SVNUM←17   ∀ε∪¬	∪)>d@~∀∪→=ε@bn\h``∩$w'⊃∨U→λA¬∀@bnnP``~∀4∀∪¬%-π⊗t∪M)β4∪M-α∩wMβ-
A∧@∩∩d4∀∩∪!1α∩∩w≥(A∨1λA!&$∩b~∀$∪!⊃α$∩v∩∩$b~∀∩%β≥	∩%¬¬∪($v∩∩∩H~∀∩∪	≥
∪¬I↔∪≤∩mβ≥λA
⊗A
∨HA¬%⊗$∩d~∀$∪→	βh∪'-α$v∩∩∩H~∀∩∪)≠!∪≤%∪%#∧$w→'∀A%)U%≤A)<A∪%#X@@00L0~∀∩$∩∩v∩$@@@@@@bf4∀~∀∪=	(t∪M)β4∪M-α∩wMβ-
A∧∩∩∩d4∀∪¬%-∪≤t∪1	α∪≥5∪α∩v$∩∩f~(∩∪')∧∪'-≥5∩∩w'¬-
A≥5∪α∩∩L~∀∩∪1	β∩∪I)∩∩v$∩∩d~(∩∪')∧∪≥≠∪∧∩w
∪`A∪(∩$∩f~∀$∪')1h∪'-0$w'β-∀A0∩∩@@@@00d04∀∩∩∩$v∩∩@@@@@bj~∀4∀vA%∃'(A$←≡∩∪Mβ-
AA$@}~(∪π%β|bnfn\j@@.%!%β>DnfnnP~∀∪πI¬>bnLnnn@.∪!%	>bnf\nl~∀4∀∩∪→⊃1∩∩f$v∩∩∩H~∀∪'Y!∪αt%→	β0%!%α∩m'β-
↓π$A)!≤A	⊂∩f~∀$∪')βi0∪'-A%α∩v$∩∩d~(∩∪→	¬∩∩`∩l∩∩∩d4∀∩∪'Qβ0∪!Iα∩w%∃!→βπ∀A/∪) A5%=&∩f~(∩∪	`∩∩v∩$∩b~∀$∪¬!_%'-!∪∧∩v∩∩$d~∀~(∩∪')`∪!%∧$w
∨$↓∨+)!U(∩@@@@@0`f0~∀$∩∩∩v$∩@@@@@@b`~∀vA⊃!2@]1∨ε~∀$∪')3h∪'-2$w'β-∀A2∩∩$d~∀∩%!→α∩$v∩∩∩D~∀∩∪M)β4∪M-!&∩m'β-
↓!&Aβ9λA!ε$∩d~∀$∪!→α$∩v∩∩$b~∀∩%')β4%'-!π0∩v∩∩$d~∀∩%)β2∩$w→∨β⊂A2A/%)⊂A!
_∩b~(∩∪!→∧∩∩v∩$∩b~∀$∪')βh∪'-!
⊂∩v∩$∩d~∀$∪)'0$∩v∩∩$b~∀∩%')14%'-' $w'β-∀A' ∩$d~∀∩%)β0∩$w→∨β⊂A0A/%)⊂A!
⊂@@@@@00D0~∀∩$∩∩v∩$@@@@@@bl4∀∩∩∩$v∩∩@@@@@`000~(∩∩∩∩l∩∩@@@@@@Xd~∀_∪'Qβλt∪M)34∪⊃β	$∩mβ≥λA⊃β	$∩$d~∀∩%')14%	β	$,b∩v∩$∩d~∀%∂-β_h∪')3h∪β	$$w')U Aβ	H∩∩d~(∩∪')a4∪β	HVb∩v$∩∩d~(∩∪→	a∩∩`∩l∩∩∩d4∀∩∪→⊃β∪0∪⊃β	$∩m∂(AYβ_A
I∨~A↓⊃β	$∩H~∀∩∪M)β4∪Yβ_∩v$∩@@@@@00H0~∀∩$∩∩v∩$@@@@@@bh4∀vA↔λA'πβ8~∀∪↔Mπβ≤t%∃'$∪1	!2∩m	!2A⊃β	$A¬≥λA-¬_∩f~(∩∪∃'H∪∪↔¬\∩w∂PA↔¬π!$∩∩f4∀∩∪β9	∩∩b\∩w∂PA%∪λ↓∨A∃U≥⊗∩d4∀∩∪π5!∩∩b@∩v∩∩$d~∀∩%¬"∪⊃∨(∩w∃1β~∩$∩d~∀$∪→	1h∪≥
→≤∩v∩∩$d~∀∩%¬πε∪≥≥+~∩m¬%β≥
⊂A∨≤↓≥+~∩$d~∀∩%¬!_∪a≥1(∩m∪A≥<A	 ↓)⊃≤↓0A≥a(00d`~∀∩∩$∩v∩∩@@@@@bp~(vA	@~∀∩∪1	β4∪⊃β	$∩m	 A⊃%∞A1∨.@∩$d~∀∩%∪≥0∩$w0A>`∩∩∩D~∀∩∪M)β∪0%β	$∩m∪≤A↓¬	$∩∩H~∀vA∃1β~A91(~(∪1≥1Pt∪→	a∩∩d∩l∩@∩∩H~∀∩∪M)14∪9
→∞∩l∩∩∩d4∀∩∪→⊃34∪β⊃$∩v∩$∩d~∀$∪→	1h∪β	$,b∩v∩$∩d~∀$∪∪≥2$∩wβ	HA>Aβ⊃$Vb∩$b~∀∩%¬≥
∪M)βλ$v∩∩∩H~∀∩∪%≥0∩∩l∩∩∩b4∀∩∪∃5 ∪'Qβλ∩v$∩@@@@@00L0~∀∩$∩∩v∩$@@@@@@d`4∀vAaβ~~∀%$c>Dnn``@~∀∪	=(t∪→⊃14∪≥→→∞∩w
⊗A
∨HA≥≡A9+~∩∩H~∀∩∪	!_∪π-∨$∩v$∩∩d~(∩∪∪≥`∩∩v∩$∩b~∀$∪')1h∪≥
→≤∩v∩∩$d~∀∩%→	34%	β	$$w∂(↓	β	$↓
∨$A¬	$∩d4∀∩∪→⊃14∪	¬	$Vb$v∩∩∩H~∀∩∪)≠ ∪∂Yβ_∩v$∩@@@@@00L0~∀∩$∩∩v∩$@@@@@@bh4∀~∀∪
↔∨$t%¬≥
∪
∨≥(∩mπ⊗A
=$Aπ∨9)∪≥+∀∩d~∀$∪→	0%$b∩l∩∩∩f4∀∩∪∪90∩∩v$∩∩b~(∩∪¬D∪↔'π¬≤∩wπ,A
∨$↓∨)⊃HA!%∨4∩d~∀$∪∃≠ %$b∩l∩∩@@@@@0`f0~∀$∩∩∩v$∩@@@@@@bD~∀∩∩$∩v∩∩@@@@00004∀∩∩∩$v∩∩@@@@@nn~∀_vA∂∃(A-β0~∀∪∂9+~t∪	≠∩∪≥=5%≡∩m∪A
%%'(A9+~∩∩H~∀∩∪1	1∩∩@∩v∩∩$d~∀∩%')14%	β	$$w)⊃8A5%<Aβ	$↓	!2∩H~∀∩∪M)14∪⊃β	$VD∩v∩∩$d~∀∪9∨5%≡h∪→	1$∩d⊂¬XH$%HhP&∩&;P&εNeP&∩ε%⊂%nNDJ~Qα"∩J⊗≥→α2⊗5 %H4PH&J>eP&∩ε%⊃-D ↔1⊂HK!Q HLH[HK1⊃⊂KλQ!⊂L∃	A∀$Lq↔5≤D_jB∧lz(PHK!Q HLz(∃PLH_E⊂K8→d"∧_HB∧\(9¬⊂H⊗!PPH~:D
P_H∀%⊂↔1⊂HK!Q HM:K¬PLhiD8K:8U"∧jYR∧ S⊃b!⊗C"B!→S4α):pp3A↔b"(∧∧λλλββfβ!!"""'1"(λ∧∧λλλε&C"NdλssU	→U1#!!0ssJGB3⊃λ≠Vα4jhtP"':Q4u	zQ(⊂j(H⊂3HD⊂tP!⊗C"B!~u⊂6↓_tP"'1"",aQB"1λ[α".a⊃",#!!"1⊃+↓"]DBDXFEαDa(&αagg*α]DDPλ⊂⊂⊂⊂ε→εB∧DDDNDDD\CEεE∧Bf",-αik)hα]cbjλ)h∧DBYεE∧Bj,)DB]DDDLFE∧DS",m∧Tk,D]Qbj⊂,BDDYεBεE∧DS",$DKZ∧]DBDYεEαcbj)N∧f" V,∧ik∀!d∃Zα]i"iU'i"P∀!P g⊃⊂()PαYεE∧Bh$ DB]j'P∀j aeBDXFEαDdg,αD]DDBXFE∧Ba&dDQbj)DNDDP⊂λ⊂⊂⊂ε→εEαDDD]BDP⊂⊂λ⊂⊂⊂_LFEεEαDh& BD]cbU⊂ DDBXFE∧Bf",-αik'&RD]DDBYεE∧Bij,∧S&d`DNi"ij∪3
		LDXZ	SVX	;GET X			2
		RTI		;		      __1_
				;			9
				;		      ____
				;		       57
; LED OUT
	LDPY:	LDAI	54	;SET DDBIT		2
		STA	CRB	;AND PULSE IN CRB	3

		LDXI	5	;			2
		LDYI	5	;		       _2_
				;			9

	ROT:	ROLZ	VAL	;ROTATE VAL AND		2
		ROLZ	DADR	;DADR LEFT 4	 	2
		ROLZ	DADR+1	;BITS AT A TIME		2
		DEY		;			1
		BNE	ROT	;		       _2_
				;			9

		LDAZ	VAL	;			2
		ANDI	17	;			2
		ORAX	DTBL	;			3
		STA	PRB	;DPY IT			3
		LDYI	4	;			2
		DEX		;			1
		BPL	ROT	;DO REST		2
		RTS		;		      __1_
				;		       16

	DTBL:	0		;			1
		20		;			1
		40		;			1
		60		;			1
		100		;			1
		120		;		      __1_
				;			6
; INKBW
	IKBW:	LDAI	6	;SET DDBIT		2
		STA	CRA	;AND ↑BIT IN CRA	3
	CKMOR:	BIT	CRA	;TEST CRA FOR INPUT	3
		BPL	CKMOR	;TRY AGAIN		2
		LDA	PRA	;GET CHR		3
		RTS		;RETURN		      __1_
				;		       14
; ROM INTER VECTS
	LOC 177772
	NMIV:	ABSO NMIA	;			2
	RSTV:	ABSO ODT	;			2
	IRQV:	ABSO IRQA	;		       _2_
				;			6
				;		      ____
				;		       60

				;		       62
				;		       77
				;		       57
				;		     __60_
END				;		      256